home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / HAMRADIO / LOGBOOK.ZIP / LZ60.PRG < prev    next >
Text File  |  1986-12-03  |  1KB  |  49 lines
  1. *LZ60  SCAN LOG FOR LZ60 AWARD REQUIREMENTS
  2. ? 'LZ60 AWARD CONTACTS/POINTS SUMMARY'
  3. ACCEPT 'Do you want Hard Copy (Y/N) ? ' TO pf
  4. IF pf = 'Y'
  5.    SET PRINT ON
  6. ENDIF
  7. USE &logbook INDEX &logndx
  8. FIND LZ
  9. STORE 0 TO points
  10. STORE 0 TO spoints
  11. ERASE
  12. ? '                    LZ 60 AWARD CONTACTS '
  13. ? '  CALL       DATE   TIME  BD TX  RX MODE '
  14. ?? 'POWER   COMMENTS        POINTS'
  15. ? ' ----------------------------------------'
  16. ?? '------------------------------'
  17. DO WHILE call = 'LZ' .AND. .NOT. EOF
  18.    * date has to be in yy/mm/dd format
  19.    IF date >= '86/07/01' .AND. date <= '86/12/31'
  20.       IF call = 'LZ6'
  21.          STORE 6 TO points
  22.       ELSE
  23.          STORE 1 TO points
  24.       ENDIF
  25.       STORE spoints + points TO spoints
  26.       ? call,date,time,band,tx,rx,mode,power,comments,points
  27.       STORE CALL TO ncall
  28.       STORE band TO nband
  29.       DO WHILE call = ncall .AND. .NOT. EOF
  30.       * .AND. band = nband
  31.       * if same call on different bands is allowed
  32.          * SKIP DUPES
  33.          SKIP
  34.       ENDDO
  35.       IF .NOT. EOF
  36.          SKIP -1
  37.       ENDIF
  38.    ENDIF
  39.    SKIP
  40. ENDDO
  41. USE
  42. ? '-------------------------------'
  43. ?? '----------------------------------------'
  44. ? 'TOTAL POINTS = ',spoints
  45. SET PRINT OFF
  46. RELEASE spoints,points,ncall,nband,pf
  47. WAIT
  48. RETURN
  49.